home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / find file t&s (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  262b  |  8 lines
  1. 5 rem find track and sector of a file
  2. 10 z$=chr$(0): input"which file";nm$: open 15,8,15
  3. 20 open 2,8,2,nm$: print#15,"m-r"chr$(249)chr$(0)chr$(1)
  4. 30 get#15,a$: bf=6+2*asc(a$+z$)
  5. 40 print#15,"m-r";chr$(bf)chr$(0)chr$(2)
  6. 50 get#15,a$,b$: tr=asc(a$+z$): sc=asc(b$+z$)
  7. 60 close 2: close 15: print"track";tr;"sector";sc
  8.